home *** CD-ROM | disk | FTP | other *** search
/ Young Minds / Young Minds Interactive CD-ROM.ISO / umoria / dungeon.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-07-28  |  40.6 KB  |  1,616 lines
  1. #include <stdio.h>
  2.  
  3. #include "constants.h"
  4. #include "config.h"
  5. #include "types.h"
  6. #include "externs.h"
  7.  
  8. #ifdef USG
  9. #include <string.h>
  10. #else
  11. #include <strings.h>
  12. #endif
  13.  
  14. #ifdef sun   /* correct SUN stupidity in the stdio.h file */
  15. char *sprintf();
  16. #endif
  17.  
  18. #ifdef USG
  19. unsigned sleep();
  20. #endif
  21.  
  22. #ifdef ultrix
  23. void sleep();
  24. #endif
  25.  
  26. /* global flags */
  27. int moria_flag;        /* Next level when true  */
  28. int search_flag;       /* Player is searching   */
  29. int teleport_flag;     /* Handle teleport traps  */
  30. int player_light;      /* Player carrying light */
  31. int cave_flag;         /* used in get_panel */
  32. int light_flag;        /* used in move_light */
  33.  
  34. /* value of msg_flag at start of turn */
  35. int save_msg_flag;
  36.  
  37. /* Moria game module                    -RAK-    */
  38. /* The code in this section has gone through many revisions, and */
  39. /* some of it could stand some more hard work...  -RAK-          */
  40. dungeon()
  41. {
  42.   int old_chp, old_cmana;      /* Detect change         */
  43.   double regen_amount;         /* Regenerate hp and mana*/
  44.   char command;         /* Last command          */
  45.   register struct misc *p_ptr;
  46.   register treasure_type *i_ptr;
  47.   register struct flags *f_ptr;
  48.   int set_floor();
  49.  
  50.   /* Main procedure for dungeon...             -RAK-    */
  51.   /* Note: There is a lot of preliminary magic going on here at first*/
  52.  
  53.   /* Check light status for setup          */
  54.   i_ptr = &inventory[INVEN_LIGHT];
  55.   if (i_ptr->p1 > 0)
  56.     player_light = TRUE;
  57.   else
  58.     player_light = FALSE;
  59.   /* Check for a maximum level             */
  60.   p_ptr = &py.misc;
  61.   if (dun_level > p_ptr->max_lev)  p_ptr->max_lev = dun_level;
  62.   /* Set up the character co-ords          */
  63.   if ((char_row == -1) || (char_col == -1))
  64.     new_spot(&char_row, &char_col);
  65.   /* Reset flags and initialize variables  */
  66.   moria_flag    = FALSE;
  67.   cave_flag     = FALSE;
  68.   find_flag     = FALSE;
  69.   search_flag   = FALSE;
  70.   teleport_flag = FALSE;
  71.   mon_tot_mult  = 0;
  72.   cave[char_row][char_col].cptr = 1;
  73.   old_chp   = (int)py.misc.chp;
  74.   old_cmana = (int)py.misc.cmana;
  75.   /* Light up the area around character    */
  76.   move_char(5);
  77.   /* Light,  but do not move critters       */
  78.   creatures(FALSE);
  79.   /* Print the depth                       */
  80.   prt_depth();
  81.  
  82.   /* Loop until dead,  or new level         */
  83.   do
  84.     {
  85.       /* Increment turn counter            */
  86.       turn++;
  87.       /* Check for game hours                          */
  88.       if (!wizard1)
  89.     if ((turn % 250) == 1)
  90.       if (!check_time())
  91.         if (closing_flag > 4)
  92.           {
  93.         if (search_flag)
  94.           search_off();
  95.         if (py.flags.rest > 0)
  96.           rest_off();
  97.         find_flag = FALSE;
  98.         msg_print("The gates to Moria are now closed.");
  99.         /* make sure player sees the message */
  100.         msg_print(" ");
  101.         do
  102.           {
  103.             save_char(TRUE, FALSE);
  104.           }
  105.         while (TRUE);
  106.           }
  107.         else
  108.           {
  109.         if (search_flag)
  110.           search_off();
  111.         if (py.flags.rest > 0)
  112.           rest_off();
  113.         find_flag = FALSE;
  114.         move_light (char_row, char_col, char_row, char_col);
  115.         closing_flag++;
  116.         msg_print("The gates to Moria are closing...");
  117.         msg_print("Please finish up or save your game.");
  118.         /* make sure the player sees the message */
  119.         msg_print(" ");
  120.           }
  121.  
  122.       /* turn over the store contents every, say, 1000 turns */
  123.       if ((dun_level != 0) && ((turn % 1000) == 0))
  124.     store_maint();
  125.  
  126.       /* Check for creature generation         */
  127.       if (randint(MAX_MALLOC_CHANCE) == 1)
  128.     alloc_monster(set_floor, 1, MAX_SIGHT, FALSE);
  129.       /* Screen may need updating,  used mostly for stats*/
  130.       if (print_stat != 0)
  131.     {
  132.       if (0x0001 & print_stat)
  133.         prt_strength();
  134.       if (0x0002 & print_stat)
  135.         prt_dexterity();
  136.       if (0x0004 & print_stat)
  137.         prt_constitution();
  138.       if (0x0008 & print_stat)
  139.         prt_intelligence();
  140.       if (0x0010 & print_stat)
  141.         prt_wisdom();
  142.       if (0x0020 & print_stat)
  143.         prt_charisma();
  144.       if (0x0040 & print_stat)
  145.         prt_pac();
  146.       if (0x0100 & print_stat)
  147.         prt_mhp();
  148.       if (0x0200 & print_stat)
  149.         prt_title();
  150.       if (0x0400 & print_stat)
  151.         prt_level();
  152.     }
  153.       /* Check light status                            */
  154.       i_ptr = &inventory[INVEN_LIGHT];
  155.       if (player_light)
  156.     if (i_ptr->p1 > 0)
  157.       {
  158.         i_ptr->p1--;
  159.         if (i_ptr->p1 == 0)
  160.           {
  161.         player_light = FALSE;
  162.         find_flag = FALSE;
  163.         msg_print("Your light has gone out!");
  164.         move_light(char_row, char_col, char_row, char_col);
  165.           }
  166.         else if (i_ptr->p1 < 40)
  167.           if (randint(5) == 1)
  168.         {
  169.           if (find_flag)
  170.             {
  171.               find_flag = FALSE;
  172.               move_light(char_row, char_col, char_row, char_col);
  173.             }
  174.           msg_print("Your light is growing faint.");
  175.         }
  176.       }
  177.     else
  178.       {
  179.         player_light = FALSE;
  180.         find_flag = FALSE;
  181.         move_light(char_row, char_col, char_row, char_col);
  182.       }
  183.       else if (i_ptr->p1 > 0)
  184.     {
  185.       i_ptr->p1--;
  186.       player_light = TRUE;
  187.       move_light(char_row, char_col, char_row, char_col);
  188.     }
  189.  
  190.       /* Update counters and messages            */
  191.       f_ptr = &py.flags;
  192.       /* Check food status             */
  193.       regen_amount = PLAYER_REGEN_NORMAL;
  194.       if (f_ptr->food < PLAYER_FOOD_ALERT)
  195.     {
  196.       if (f_ptr->food < PLAYER_FOOD_WEAK)
  197.         {
  198.           if (f_ptr->food < 0)
  199.         regen_amount = 0;
  200.           else if (f_ptr->food < PLAYER_FOOD_FAINT)
  201.         regen_amount = PLAYER_REGEN_FAINT;
  202.           else if (f_ptr->food < PLAYER_FOOD_WEAK)
  203.         regen_amount = PLAYER_REGEN_WEAK;
  204.           if ((0x00000002 & f_ptr->status) == 0)
  205.         {
  206.           f_ptr->status |= 0x00000003;
  207.           msg_print("You are getting weak from hunger.");
  208.           if (find_flag)
  209.             {
  210.               find_flag = FALSE;
  211.               move_light (char_row, char_col, char_row, char_col);
  212.             }
  213.           prt_hunger();
  214.         }
  215.           if (f_ptr->food < PLAYER_FOOD_FAINT)
  216.         if (randint(8) == 1)
  217.           {
  218.             f_ptr->paralysis += randint(5);
  219.             msg_print("You faint from the lack of food.");
  220.             if (find_flag)
  221.               {
  222.             find_flag = FALSE;
  223.             move_light (char_row, char_col, char_row, char_col);
  224.               }
  225.           }
  226.         }
  227.       else
  228.         {
  229.           if ((0x00000001 & f_ptr->status) == 0)
  230.         {
  231.           f_ptr->status |= 0x00000001;
  232.           msg_print("You are getting hungry.");
  233.           if (find_flag)
  234.             {
  235.               find_flag = FALSE;
  236.               move_light (char_row, char_col, char_row, char_col);
  237.             }
  238.           prt_hunger();
  239.         }
  240.         }
  241.     }
  242.       /* Food consumption       */
  243.       /* Note: Speeded up characters really burn up the food!  */
  244.       if (f_ptr->speed < 0)
  245.     f_ptr->food +=  -(f_ptr->speed*f_ptr->speed) -
  246.       f_ptr->food_digested;
  247.       else
  248.     f_ptr->food -= f_ptr->food_digested;
  249.       /* Regenerate            */
  250.       p_ptr = &py.misc;
  251.       if (f_ptr->regenerate)  regen_amount = regen_amount * 1.5;
  252.       if (f_ptr->rest > 0)    regen_amount = regen_amount * 2;
  253.       if (py.flags.poisoned < 1)
  254.     if (p_ptr->chp < p_ptr->mhp)
  255.       regenhp(regen_amount);
  256.       if (p_ptr->cmana < p_ptr->mana)
  257.     regenmana(regen_amount);
  258.       /* Blindness             */
  259.       if (f_ptr->blind > 0)
  260.     {
  261.       if ((0x00000004 & f_ptr->status) == 0)
  262.         {
  263.           f_ptr->status |= 0x00000004;
  264.           prt_map();
  265.           prt_blind();
  266.           if (search_flag)
  267.         search_off();
  268.         }
  269.       f_ptr->blind--;
  270.       if (f_ptr->blind == 0)
  271.         {
  272.           f_ptr->status &= 0xFFFFFFFB;
  273.           prt_blind();
  274.           prt_map();
  275.           msg_print("The veil of darkness lifts.");
  276.           if (find_flag)
  277.         {
  278.           find_flag = FALSE;
  279.         }
  280.           /* turn light back on */
  281.           move_char(5);
  282.           /* light creatures */
  283.           creatures(FALSE);
  284.         }
  285.     }
  286.       /* Confusion             */
  287.       if (f_ptr->confused > 0)
  288.     {
  289.       if ((0x00000008 & f_ptr->status) == 0)
  290.         {
  291.           f_ptr->status |= 0x00000008;
  292.           prt_confused();
  293.         }
  294.       f_ptr->confused--;
  295.       if (f_ptr->confused == 0)
  296.         {
  297.           f_ptr->status &= 0xFFFFFFF7;
  298.           prt_confused();
  299.           msg_print("You feel less confused now.");
  300.           if (find_flag)
  301.         {
  302.           find_flag = FALSE;
  303.           move_light (char_row, char_col, char_row, char_col);
  304.         }
  305.         }
  306.     }
  307.       /* Afraid                */
  308.       if (f_ptr->afraid > 0)
  309.     {
  310.       if ((0x00000010 & f_ptr->status) == 0)
  311.         {
  312.           if ((f_ptr->shero+f_ptr->hero) > 0)
  313.         f_ptr->afraid = 0;
  314.           else
  315.         {
  316.           f_ptr->status |= 0x00000010;
  317.           prt_afraid();
  318.         }
  319.         }
  320.       else if ((f_ptr->shero+f_ptr->hero) > 0)
  321.         f_ptr->afraid = 1;
  322.       f_ptr->afraid--;
  323.       if (f_ptr->afraid == 0)
  324.         {
  325.           f_ptr->status &= 0xFFFFFFEF;
  326.           prt_afraid();
  327.           msg_print("You feel bolder now.");
  328.           if (find_flag)
  329.         {
  330.           find_flag = FALSE;
  331.           move_light (char_row, char_col, char_row, char_col);
  332.         }
  333.         }
  334.     }
  335.       /* Poisoned              */
  336.       if (f_ptr->poisoned > 0)
  337.     {
  338.       if ((0x00000020 & f_ptr->status) == 0)
  339.         {
  340.           f_ptr->status |= 0x00000020;
  341.           prt_poisoned();
  342.         }
  343.       f_ptr->poisoned--;
  344.       if (f_ptr->poisoned == 0)
  345.         {
  346.           f_ptr->status &= 0xFFFFFFDF;
  347.           prt_poisoned();
  348.           msg_print("You feel better.");
  349.           if (find_flag)
  350.         {
  351.           find_flag = FALSE;
  352.           move_light (char_row, char_col, char_row, char_col);
  353.         }
  354.         }
  355.       else
  356.         {
  357.           switch(con_adj())
  358.         {
  359.         case -4:
  360.           take_hit(4, "poison.");
  361.           break;
  362.         case -3: case  -2:
  363.           take_hit(3, "poison.");
  364.           break;
  365.         case -1:
  366.           take_hit(2, "poison.");
  367.           break;
  368.         case 0:
  369.           take_hit(1, "poison.");
  370.           break;
  371.         case 1: case 2: case 3:
  372.           if ((turn % 2) == 0)
  373.             take_hit(1, "poison.");
  374.           break;
  375.         case 4: case 5:
  376.           if ((turn % 3) == 0)
  377.             take_hit(1, "poison.");
  378.           break;
  379.         case 6:
  380.           if ((turn % 4) == 0)
  381.             take_hit(1, "poison.");
  382.           break;
  383.         }
  384.         }
  385.     }
  386.       /* Fast                  */
  387.       if (f_ptr->fast > 0)
  388.     {
  389.       if ((0x00000040 & f_ptr->status) == 0)
  390.         {
  391.           f_ptr->status |= 0x00000040;
  392.           change_speed(-1);
  393.           msg_print("You feel yourself moving faster.");
  394.           if (find_flag)
  395.         {
  396.           find_flag = FALSE;
  397.           move_light (char_row, char_col, char_row, char_col);
  398.         }
  399.         }
  400.       f_ptr->fast--;
  401.       if (f_ptr->fast == 0)
  402.         {
  403.           f_ptr->status &= 0xFFFFFFBF;
  404.           change_speed(1);
  405.           msg_print("You feel yourself slow down.");
  406.           if (find_flag)
  407.         {
  408.           find_flag = FALSE;
  409.           move_light (char_row, char_col, char_row, char_col);
  410.         }
  411.         }
  412.     }
  413.       /* Slow                  */
  414.       if (f_ptr->slow > 0)
  415.     {
  416.       if ((0x00000080 & f_ptr->status) == 0)
  417.         {
  418.           f_ptr->status |= 0x00000080;
  419.           change_speed(1);
  420.           msg_print("You feel yourself moving slower.");
  421.           if (find_flag)
  422.         {
  423.           find_flag = FALSE;
  424.           move_light (char_row, char_col, char_row, char_col);
  425.         }
  426.         }
  427.       f_ptr->slow--;
  428.       if (f_ptr->slow == 0)
  429.         {
  430.           f_ptr->status &= 0xFFFFFF7F;
  431.           change_speed(-1);
  432.           msg_print("You feel yourself speed up.");
  433.           if (find_flag)
  434.         {
  435.           find_flag = FALSE;
  436.           move_light (char_row, char_col, char_row, char_col);
  437.         }
  438.         }
  439.     }
  440.       /* Resting is over?      */
  441.       if (f_ptr->rest > 0)
  442.     {
  443. #ifdef SLOW
  444.       /* Hibernate every 20 iterations so that process does  */
  445.       /* not eat up system...                                */
  446.       if ((f_ptr->rest % 20) == 1)  (void) sleep(1);
  447. #endif
  448.       f_ptr->rest--;
  449.       /* do not need to refresh screen here, if any movement/hit occurs
  450.          update_mon/take_hit will turn off resting and screen refreshes */
  451.       /* put_qio(); */
  452.       if (f_ptr->rest == 0)               /* Resting over          */
  453.         rest_off();
  454.     }
  455.       /* Hallucinating?  (Random characters appear!)*/
  456.       if (f_ptr->image > 0)
  457.     {
  458.       f_ptr->image--;
  459.       if (f_ptr->image == 0)
  460.         draw_cave();
  461.     }
  462.       /* Paralysis             */
  463.       if (f_ptr->paralysis > 0)
  464.     {
  465.       /* when paralysis true, you can not see any movement that occurs */
  466.       f_ptr->paralysis--;
  467.       if (f_ptr->rest > 0)
  468.         rest_off();
  469.       if (search_flag)
  470.         search_off();
  471.     }
  472.       /* Protection from evil counter*/
  473.       if (f_ptr->protevil > 0)  f_ptr->protevil--;
  474.       /* Invulnerability        */
  475.       if (f_ptr->invuln > 0)
  476.     {
  477.       if ((0x00001000 & f_ptr->status) == 0)
  478.         {
  479.           f_ptr->status |= 0x00001000;
  480.           if (find_flag)
  481.         {
  482.           find_flag = FALSE;
  483.           move_light (char_row, char_col, char_row, char_col);
  484.         }
  485.           py.misc.pac += 100;
  486.           py.misc.dis_ac += 100;
  487.           prt_pac();
  488.           msg_print("Your skin turns into steel!");
  489.         }
  490.       f_ptr->invuln--;
  491.       if (f_ptr->invuln == 0)
  492.         {
  493.           f_ptr->status &= 0xFFFFEFFF;
  494.           if (find_flag)
  495.         {
  496.           find_flag = FALSE;
  497.           move_light (char_row, char_col, char_row, char_col);
  498.         }
  499.           py.misc.pac -= 100;
  500.           py.misc.dis_ac -= 100;
  501.           prt_pac();
  502.           msg_print("Your skin returns to normal...");
  503.         }
  504.     }
  505.       /* Heroism       */
  506.       if (f_ptr->hero > 0)
  507.     {
  508.       if ((0x00002000 & f_ptr->status) == 0)
  509.         {
  510.           f_ptr->status |= 0x00002000;
  511.           if (find_flag)
  512.         {
  513.           find_flag = FALSE;
  514.           move_light (char_row, char_col, char_row, char_col);
  515.         }
  516.           p_ptr = &py.misc;
  517.           p_ptr->mhp += 10;
  518.           p_ptr->chp += 10.0;
  519.           p_ptr->bth += 12;
  520.           p_ptr->bthb+= 12;
  521.           msg_print("You feel like a HERO!");
  522.           prt_mhp();
  523.         }
  524.       f_ptr->hero--;
  525.       if (f_ptr->hero == 0)
  526.         {
  527.           f_ptr->status &= 0xFFFFDFFF;
  528.           if (find_flag)
  529.         {
  530.           find_flag = FALSE;
  531.           move_light (char_row, char_col, char_row, char_col);
  532.         }
  533.           p_ptr = &py.misc;
  534.           p_ptr->mhp -= 10;
  535.           if (p_ptr->chp > p_ptr->mhp)  p_ptr->chp = p_ptr->mhp;
  536.           p_ptr->bth -= 12;
  537.           p_ptr->bthb-= 12;
  538.           msg_print("The heroism wears off.");
  539.           prt_mhp();
  540.         }
  541.     }
  542.       /* Super Heroism */
  543.       if (f_ptr->shero > 0)
  544.     {
  545.       if ((0x00004000 & f_ptr->status) == 0)
  546.         {
  547.           f_ptr->status |= 0x00004000;
  548.           if (find_flag)
  549.         {
  550.           find_flag = FALSE;
  551.           move_light (char_row, char_col, char_row, char_col);
  552.         }
  553.           p_ptr = &py.misc;
  554.           p_ptr->mhp += 20;
  555.           p_ptr->chp += 20.0;
  556.           p_ptr->bth += 24;
  557.           p_ptr->bthb+= 24;
  558.           msg_print("You feel like a SUPER HERO!");
  559.           prt_mhp();
  560.         }
  561.       f_ptr->shero--;
  562.       if (f_ptr->shero == 0)
  563.         {
  564.           f_ptr->status &= 0xFFFFBFFF;
  565.           if (find_flag)
  566.         {
  567.           find_flag = FALSE;
  568.           move_light (char_row, char_col, char_row, char_col);
  569.         }
  570.           p_ptr = &py.misc;
  571.           p_ptr->mhp -= 20;
  572.           if (p_ptr->chp > p_ptr->mhp)  p_ptr->chp = p_ptr->mhp;
  573.           p_ptr->bth -= 24;
  574.           p_ptr->bthb-= 24;
  575.           msg_print("The super heroism wears off.");
  576.           prt_mhp();
  577.         }
  578.     }
  579.       /* Blessed       */
  580.       if (f_ptr->blessed > 0)
  581.     {
  582.       if ((0x00008000 & f_ptr->status) == 0)
  583.         {
  584.           f_ptr->status |= 0x00008000;
  585.           if (find_flag)
  586.         {
  587.           find_flag = FALSE;
  588.           move_light (char_row, char_col, char_row, char_col);
  589.         }
  590.           p_ptr = &py.misc;
  591.           p_ptr->bth += 5;
  592.           p_ptr->bthb+= 5;
  593.           p_ptr->pac += 2;
  594.           p_ptr->dis_ac+= 2;
  595.           msg_print("You feel righteous!");
  596.           prt_pac();
  597.         }
  598.       f_ptr->blessed--;
  599.       if (f_ptr->blessed == 0)
  600.         {
  601.           f_ptr->status &= 0xFFFF7FFF;
  602.           if (find_flag)
  603.         {
  604.           find_flag = FALSE;
  605.           move_light (char_row, char_col, char_row, char_col);
  606.         }
  607.           p_ptr = &py.misc;
  608.           p_ptr->bth -= 5;
  609.           p_ptr->bthb-= 5;
  610.           p_ptr->pac -= 2;
  611.           p_ptr->dis_ac -= 2;
  612.           msg_print("The prayer has expired.");
  613.           prt_pac();
  614.         }
  615.     }
  616.       /* Resist Heat   */
  617.       if (f_ptr->resist_heat > 0)  f_ptr->resist_heat--;
  618.       /* Resist Cold   */
  619.       if (f_ptr->resist_cold > 0)  f_ptr->resist_cold--;
  620.       /* Detect Invisible      */
  621.       if (f_ptr->detect_inv > 0)
  622.     {
  623.       if ((0x00010000 & f_ptr->status) == 0)
  624.         {
  625.           f_ptr->status |= 0x00010000;
  626.           f_ptr->see_inv = TRUE;
  627.         }
  628.       f_ptr->detect_inv--;
  629.       if (f_ptr->detect_inv == 0)
  630.         {
  631.           f_ptr->status &= 0xFFFEFFFF;
  632.           f_ptr->see_inv = FALSE;
  633.           py_bonuses(blank_treasure, 0);
  634.         }
  635.     }
  636.       /* Timed infra-vision    */
  637.       if (f_ptr->tim_infra > 0)
  638.     {
  639.       if ((0x00020000 & f_ptr->status) == 0)
  640.         {
  641.           f_ptr->status |= 0x00020000;
  642.           f_ptr->see_infra++;
  643.         }
  644.       f_ptr->tim_infra--;
  645.       if (f_ptr->tim_infra == 0)
  646.         {
  647.           f_ptr->status &= 0xFFFDFFFF;
  648.           f_ptr->see_infra--;
  649.         }
  650.     }
  651.     /* Word-of-Recall  Note: Word-of-Recall is a delayed action      */
  652.       if (f_ptr->word_recall > 0)
  653.     if (f_ptr->word_recall == 1)
  654.       {
  655.         moria_flag = TRUE;
  656.         f_ptr->paralysis++;
  657.         f_ptr->word_recall = 0;
  658.         if (dun_level > 0)
  659.           {
  660.         dun_level = 0;
  661.         msg_print("You feel yourself yanked upwards!");
  662.           }
  663.         else if (py.misc.max_lev != 0)
  664.           {
  665.         dun_level = py.misc.max_lev;
  666.         msg_print("You feel yourself yanked downwards!");
  667.           }
  668.       }
  669.     else
  670.       f_ptr->word_recall--;
  671.  
  672.       /* Check hit points for adjusting...            */
  673.       p_ptr = &py.misc;
  674.       if (!find_flag)
  675.     if (py.flags.rest < 1)
  676.       {
  677.         if (old_chp != (int)(p_ptr->chp))
  678.           {
  679.         if (p_ptr->chp > p_ptr->mhp)
  680.           p_ptr->chp = (double)p_ptr->mhp;
  681.         prt_chp();
  682.         old_chp = (int)p_ptr->chp;
  683.           }
  684.         if (old_cmana != (int)(p_ptr->cmana))
  685.           {
  686.         if (p_ptr->cmana > p_ptr->mana)
  687.           p_ptr->cmana = (double)p_ptr->mana;
  688.         prt_cmana();
  689.         old_cmana = (int)p_ptr->cmana;
  690.           }
  691.       }
  692.  
  693.       if ((py.flags.paralysis < 1) &&        /* Accept a command?     */
  694.       (py.flags.rest < 1) &&
  695.       (!death))
  696.     /* Accept a command and execute it                               */
  697.     {
  698.       do
  699.         {
  700.           print_stat = 0;
  701.           reset_flag = FALSE;
  702.           /* Random teleportation  */
  703.           if (py.flags.teleport)
  704.         if (randint(100) == 1)
  705.           {
  706.             find_flag = FALSE; /* no need for move_char(5) */
  707.             teleport(40);
  708.           }
  709.           if (!find_flag)
  710.         {
  711.           /* move the cursor to the players character */
  712.           print("", char_row, char_col);
  713.           save_msg_flag = msg_flag;
  714.           do
  715.             {
  716.               inkey(&command);
  717.             }
  718.           while (command == ' ');
  719.           if (save_msg_flag)  erase_line(MSG_LINE, 0);
  720.           global_com_val = (command);
  721.         }
  722.           /* Commands are executed in following subroutines     */
  723.           if (key_bindings == ORIGINAL)
  724.         original_commands(&global_com_val);
  725.           else
  726.         rogue_like_commands(&global_com_val);
  727.           /* End of commands                                     */
  728.         }
  729.       while ((reset_flag) && (!moria_flag));
  730.     }
  731.       /* Teleport?                     */
  732.       if (teleport_flag)  teleport(100);
  733.       /* Move the creatures            */
  734.       if (!moria_flag)  creatures(TRUE);
  735.       /* Exit when moria_flag is set   */
  736.     }
  737.   while (!moria_flag);
  738.   if (search_flag)  search_off();  /* Fixed "SLOW" bug; 06-11-86 RAK     */
  739. }
  740.  
  741.  
  742. original_commands(com_val)
  743. int *com_val;
  744. {
  745.   int y, x, dir_val;
  746.   char command;
  747.   int i;
  748.   vtype out_val, tmp_str;
  749.   register struct stats *s_ptr;
  750.   register struct flags *f_ptr;
  751.   int set_floor();
  752.  
  753.   switch(*com_val)
  754.     {
  755.     case 0: case 11:        /*^K == exit    */
  756.       flush();
  757.       if (get_com("Enter 'Q' to quit", &command))
  758.     switch(command)
  759.       {
  760.       case 'q': case  'Q':
  761.         moria_flag = TRUE;
  762.         death      = TRUE;
  763.             /* need dot on the end to be consistent with creature.c */
  764.             (void) strcpy(died_from, "Quitting.");
  765.         break;
  766.       default:
  767.         break;
  768.       }
  769.       reset_flag = TRUE;
  770.       break;
  771.     case 16:                               /*^P == repeat  */
  772.       repeat_msg ();
  773.       reset_flag = TRUE;
  774.       break;
  775.     case 23:
  776.       if (wizard1)                        /*^W == password*/
  777.     {
  778.       wizard1 = FALSE;
  779.       wizard2 = FALSE;
  780.       msg_print("Wizard mode off.");
  781.     }
  782.       else
  783.     {
  784.       if (check_pswd())
  785.         {
  786.           msg_print("Wizard mode on.");
  787.         }
  788.     }
  789.       reset_flag = TRUE;
  790.       break;
  791.     case 18:                               /*^R == redraw  */
  792.       really_clear_screen();
  793.       draw_cave();
  794.       reset_flag = TRUE;
  795.       break;
  796.     case 24:                               /*^X == save    */
  797.       if (total_winner)
  798.     {
  799.       msg_print("You are a Total Winner,  your character must be retired...");
  800.       msg_print("Use <Control>-K to when you are ready to quit.");
  801.     }
  802.       else
  803.     {
  804.       if (search_flag)  search_off();
  805.       save_char(TRUE, FALSE);
  806.     }
  807.       reset_flag = TRUE;
  808.       break;
  809.     case 32:                                /*SPACE do nothing */
  810.       reset_flag = TRUE;
  811.       break;
  812.     case '!':                                /*!  == Shell   */
  813.       shell_out();
  814.       reset_flag = TRUE;
  815.       break;
  816.     case 46:                                   /*. == find     */
  817.       y = char_row;
  818.       x = char_col;
  819.       if (get_dir("Which direction?", &dir_val, com_val, &y, &x))
  820.     {
  821.       find_flag = TRUE;
  822.       move_char(dir_val);
  823.     }
  824.       break;
  825.     case 47:                          /* / == identify */
  826.       ident_char();
  827.       reset_flag = TRUE;
  828.       break;
  829.     case 49:
  830.       move_char(*com_val - 48);        /* Move dir 1    */
  831.       break;
  832.     case 50:
  833.       move_char(*com_val - 48);        /* Move dir 2    */
  834.       break;
  835.     case 51:
  836.       move_char(*com_val - 48);        /* Move dir 3    */
  837.       break;
  838.     case 52:
  839.       move_char(*com_val - 48);        /* Move dir 4    */
  840.       break;
  841.     case 53:                          /* Rest one turn */
  842.       move_char(*com_val - 48);
  843. #ifdef SLOW
  844.       (void) sleep(0);     /* Sleep 1/10 a second*/
  845. #endif
  846.       flush();
  847.       break;
  848.     case 54:
  849.       move_char(*com_val - 48);        /* Move dir 6    */
  850.       break;
  851.     case 55:
  852.       move_char(*com_val - 48);        /* Move dir 7    */
  853.       break;
  854.     case 56:
  855.       move_char(*com_val - 48);        /* Move dir 8    */
  856.       break;
  857.     case 57:
  858.       move_char(*com_val - 48);        /* Move dir 9    */
  859.       break;
  860.     case 60:
  861.       go_up();                                  /*< == go up    */
  862.       break;
  863.     case 62:
  864.       go_down();                                /*> == go down  */
  865.       break;
  866.     case 63:                                  /*? == help     */
  867.       original_help();
  868.       reset_flag = TRUE;   /* Free move     */
  869.       break;
  870.     case 66:
  871.       bash();                                   /*B == bash     */
  872.       break;
  873.     case 67:                                   /*C == character*/
  874.       if (get_com("Print to file? (Y/N)", &command))
  875.     switch(command)
  876.       {
  877.       case 'y': case 'Y':
  878.         file_character();
  879.         break;
  880.       case 'n': case 'N':
  881.         change_name();
  882.         draw_cave();
  883.         break;
  884.       default:
  885.         break;
  886.       }
  887.       reset_flag = TRUE;   /* Free move     */
  888.       break;
  889.     case 68:
  890.       disarm_trap();                            /*D == disarm   */
  891.       break;
  892.     case 69:
  893.       eat();                                    /*E == eat      */
  894.       break;
  895.     case 70:
  896.       refill_lamp();                            /*F == refill   */
  897.       break;
  898.     case 76:                                   /*L == location */
  899.       if ((py.flags.blind > 0) || (no_light()))
  900.     msg_print("You can't see your map.");
  901.       else
  902.     {
  903.       (void) sprintf(out_val,
  904.              "Section [%d,%d]; Location == [%d,%d]",
  905.              (((char_row-1)/OUTPAGE_HEIGHT)+1),
  906.              (((char_col-1)/OUTPAGE_WIDTH )+1),
  907.              char_row, char_col);
  908.       msg_print(out_val);
  909.     }
  910.       reset_flag = TRUE;   /* Free move     */
  911.       break;
  912.     case 80:                                   /*P == print map*/
  913.       if ((py.flags.blind > 0) || (no_light()))
  914.     msg_print("You can't see to draw a map.");
  915.       else
  916.     print_map();
  917.       reset_flag = TRUE;   /* Free move     */
  918.       break;
  919.     case 82:
  920.       rest();                                   /*R == rest     */
  921.       break;
  922.     case 83:
  923.       if (search_flag)                    /*S == srh mode */
  924.     {
  925.       search_off();
  926.       reset_flag = TRUE; /* Free move     */
  927.     }
  928.       else if (py.flags.blind > 0)
  929.     msg_print("You are incapable of searching while blind.");
  930.       else
  931.     {
  932.       search_on();
  933.       reset_flag = TRUE; /* Free move     */
  934.     }
  935.       break;
  936.     case 84:
  937.       y = char_row;
  938.       x = char_col;
  939.       if (get_dir("Which direction?", &dir_val, com_val, &y, &x))
  940.     {
  941.       tunnel(y, x);                /*T == tunnel   */
  942.     }
  943.       break;
  944.     case 97:
  945.       aim();                                    /*a == aim      */
  946.       break;
  947.     case 98:
  948.       examine_book();                           /*b == browse   */
  949.       reset_flag = TRUE;
  950.       break;
  951.     case 99:
  952.       closeobject();                            /*c == close    */
  953.       break;
  954.     case 100:
  955.       drop();                                   /*d == drop     */
  956.       break;
  957.     case 101:                                   /*e == equipment*/
  958.       reset_flag = TRUE;   /* Free move     */
  959.       if (inven_command('e', 0, 0))  draw_cave();
  960.       break;
  961.     case 102:
  962.       throw_object();                           /*f == throw    */
  963.       break;
  964. #if 0
  965.     case 104:                                 /*h == moria hlp */
  966.       moria_help("");
  967.       draw_cave();
  968.       reset_flag = TRUE;   /* Free move   */
  969.       break;
  970. #endif
  971.     case 105:                                /*i == inventory*/
  972.       reset_flag = TRUE;   /* Free move     */
  973.       if (inven_command('i', 0, 0))  draw_cave();
  974.       break;
  975.     case 106:
  976.       jamdoor();                                /*j == jam      */
  977.       break;
  978.     case 108:                                 /*l == look     */
  979.       look();
  980.       reset_flag = TRUE;   /* Free move     */
  981.       break;
  982.     case 109:
  983.       cast();                                   /*m == magick   */
  984.       break;
  985.     case 111:
  986.       openobject();                             /*o == open     */
  987.       break;
  988.     case 112:
  989.       pray();                                   /*p == pray     */
  990.       break;
  991.     case 113:
  992.       quaff();                                  /*q == quaff    */
  993.       break;
  994.     case 114:
  995.       read_scroll();                            /*r == read     */
  996.       break;
  997.     case 115:
  998.       if (py.flags.blind > 0)             /*s == search   */
  999.     msg_print("You are incapable of searching while blind.");
  1000.       else
  1001.     search(char_row, char_col, py.misc.srh);
  1002.       break;
  1003.     case 116:                              /*t == unwear   */
  1004.       reset_flag = TRUE;
  1005.       if (inven_command('t', 0, 0))  draw_cave();
  1006.       break;
  1007.     case 117:
  1008.       use();                                    /*u == use staff*/
  1009.       break;
  1010.     case 118:
  1011.       game_version();                           /*v == version  */
  1012.       reset_flag = TRUE;
  1013.       break;
  1014.     case 119:                                 /*w == wear     */
  1015.       reset_flag = TRUE;
  1016.       if (inven_command('w', 0, 0))  draw_cave();
  1017.       break;
  1018.     case 120:                                 /*x == exchange */
  1019.       reset_flag = TRUE;
  1020.       if (inven_command('x', 0, 0))  draw_cave();
  1021.       break;
  1022.     default:
  1023.       if (wizard1)
  1024.     {
  1025.       reset_flag = TRUE; /* Wizard commands are free moves*/
  1026.       switch(*com_val)
  1027.         {
  1028.         case 1:                            /*^A == Cure all*/
  1029.           (void) remove_curse();
  1030.           (void) cure_blindness();
  1031.           (void) cure_confusion();
  1032.           (void) cure_poison();
  1033.           (void) remove_fear();
  1034.           s_ptr = &py.stats;
  1035.           s_ptr->cstr = s_ptr->str;
  1036.           s_ptr->cint = s_ptr->intel;
  1037.           s_ptr->cwis = s_ptr->wis;
  1038.           s_ptr->cdex = s_ptr->dex;
  1039.           s_ptr->ccon = s_ptr->con;
  1040.           s_ptr->cchr = s_ptr->chr;
  1041.           f_ptr = &py.flags;
  1042.           if (f_ptr->slow > 1)
  1043.         f_ptr->slow = 1;
  1044.           if (f_ptr->image > 1)
  1045.         f_ptr->image = 1;
  1046.           /* put_qio(); */
  1047.           /* adjust misc stats */
  1048.           py_bonuses(blank_treasure, 0);
  1049.           break;
  1050.         case 2:
  1051.           print_objects();                  /*^B == objects */
  1052.           break;
  1053.         case 4:                           /*^D == up/down */
  1054.           prt("Go to which level (0 -1200) ? ", 0, 0);
  1055.           i = -1;
  1056.           if (get_string(tmp_str, 0, 30, 10))
  1057.         (void) sscanf(tmp_str, "%d", &i);
  1058.           if (i > -1)
  1059.         {
  1060.           dun_level = i;
  1061.           if (dun_level > 1200)
  1062.             dun_level = 1200;
  1063.           moria_flag = TRUE;
  1064.         }
  1065.           else
  1066.         erase_line(MSG_LINE, 0);
  1067.           break;
  1068.         case 8:
  1069.           original_wizard_help();           /*^H == wizhelp */
  1070.           break;
  1071.         case 9:
  1072.           (void) ident_spell();             /*^I == identify*/
  1073.           break;
  1074.         case 14:
  1075.           print_monsters();                 /*^N == mon map */
  1076.           break;
  1077.         case 12:
  1078.           wizard_light();                   /*^L == wizlight*/
  1079.           break;
  1080.         case 20:
  1081.           teleport(100);                    /*^T == teleport*/
  1082.           break;
  1083.         case 22:
  1084.           restore_char();                   /*^V == restore */
  1085.           prt_stat_block();
  1086.           moria_flag = TRUE;
  1087.           break;
  1088.         default:
  1089.           if (wizard2)
  1090.         switch(*com_val)
  1091.           {
  1092.           case 5:
  1093.             change_character();         /*^E == wizchar */
  1094.             break;
  1095.           case 6:
  1096.             (void) mass_genocide();     /*^F == genocide*/
  1097.             /* put_qio(); */
  1098.             break;
  1099.           case 7:                       /*^G == treasure*/
  1100.             alloc_object(set_floor, 5, 10);
  1101.             /* put_qio(); */
  1102.             break;
  1103.           case 10:                      /*^J == gain exp*/
  1104.             if (py.misc.exp == 0)
  1105.               py.misc.exp = 1;
  1106.             else
  1107.               py.misc.exp = py.misc.exp * 2;
  1108.             prt_experience();
  1109.             break;
  1110.           case 21:                    /*^U == summon  */
  1111.             y = char_row;
  1112.             x = char_col;
  1113.             (void) summon_monster(&y, &x, TRUE);
  1114.             creatures(FALSE);
  1115.             break;
  1116.           case '@':
  1117.             wizard_create();          /*^Q == create  */
  1118.             break;
  1119.           default:
  1120.             prt("Type '?' or '^H' for help...", 0, 0);
  1121.             break;
  1122.           }
  1123.           else
  1124.         prt("Type '?' or '^H' for help...", 0, 0);
  1125.         }
  1126.     }
  1127.       else
  1128.     {
  1129.       prt("Type '?' for help...", 0, 0);
  1130.       reset_flag = TRUE;
  1131.     }
  1132.     }
  1133. }
  1134.  
  1135.  
  1136. rogue_like_commands(com_val)
  1137. int *com_val;
  1138. {
  1139.   int y, x;
  1140.   char command;
  1141.   int i;
  1142.   vtype out_val, tmp_str;
  1143.   register struct stats *s_ptr;
  1144.   register struct flags *f_ptr;
  1145.   int set_floor();
  1146.  
  1147.   switch(*com_val)
  1148.     {
  1149.     case 0: case 'Q':        /*Q == exit    */
  1150.       flush();
  1151.       if (get_com("Do you really want to quit?", &command))
  1152.     switch(command)
  1153.       {
  1154.       case 'y': case  'Y':
  1155.         moria_flag = TRUE;
  1156.         death      = TRUE;
  1157.             /* need dot on the end to be consistent with creature.c */
  1158.             (void) strcpy(died_from, "Quitting.");
  1159.         break;
  1160.       default:
  1161.         break;
  1162.       }
  1163.       reset_flag = TRUE;
  1164.       break;
  1165.     case 16:                               /*^P == repeat  */
  1166.       repeat_msg ();
  1167.       reset_flag = TRUE;
  1168.       break;
  1169.     case 23:
  1170.       if (wizard1)                        /*^W == password*/
  1171.     {
  1172.       wizard1 = FALSE;
  1173.       wizard2 = FALSE;
  1174.       msg_print("Wizard mode off.");
  1175.     }
  1176.       else
  1177.     {
  1178.       if (check_pswd())
  1179.         {
  1180.           msg_print("Wizard mode on.");
  1181.         }
  1182.     }
  1183.       reset_flag = TRUE;
  1184.       break;
  1185.     case 18:                               /*^R == redraw  */
  1186.       really_clear_screen();
  1187.       draw_cave();
  1188.       reset_flag = TRUE;
  1189.       break;
  1190.     case 24:                               /*^X == save    */
  1191.       if (total_winner)
  1192.     {
  1193.       msg_print("You are a Total Winner,  your character must be retired...");
  1194.       msg_print("Use 'Q' to when you are ready to quit.");
  1195.     }
  1196.       else
  1197.     {
  1198.       if (search_flag)  search_off();
  1199.       save_char(TRUE, FALSE);
  1200.     }
  1201.       reset_flag = TRUE;
  1202.       break;
  1203.     case ' ':                                /*SPACE do nothing */
  1204.       reset_flag = TRUE;
  1205.       break;
  1206.     case '!':                                /*!  == Shell   */
  1207.       shell_out();
  1208.       reset_flag = TRUE;
  1209.       break;
  1210.     case 'b':
  1211.       move_char(1);
  1212.       break;
  1213.     case 'j':
  1214.       move_char(2);
  1215.       break;
  1216.     case 'n':
  1217.       move_char(3);
  1218.       break;
  1219.     case 'h':
  1220.       move_char(4);
  1221.       break;
  1222.     case 'l':
  1223.       move_char(6);
  1224.       break;
  1225.     case 'y':
  1226.       move_char(7);
  1227.       break;
  1228.     case 'k':
  1229.       move_char(8);
  1230.       break;
  1231.     case 'u':
  1232.       move_char(9);
  1233.       break;
  1234.     case 'B':                                   /*. == find     */
  1235.       find_flag = TRUE;
  1236.       move_char(1);
  1237.       break;
  1238.     case 'J':                                   /*. == find     */
  1239.       find_flag = TRUE;
  1240.       move_char(2);
  1241.       break;
  1242.     case 'N':                                   /*. == find     */
  1243.       find_flag = TRUE;
  1244.       move_char(3);
  1245.       break;
  1246.     case 'H':                                   /*. == find     */
  1247.       find_flag = TRUE;
  1248.       move_char(4);
  1249.       break;
  1250.     case 'L':                                   /*. == find     */
  1251.       find_flag = TRUE;
  1252.       move_char(6);
  1253.       break;
  1254.     case 'Y':                                   /*. == find     */
  1255.       find_flag = TRUE;
  1256.       move_char(7);
  1257.       break;
  1258.     case 'K':                                   /*. == find     */
  1259.       find_flag = TRUE;
  1260.       move_char(8);
  1261.       break;
  1262.     case 'U':                                   /*. == find     */
  1263.       find_flag = TRUE;
  1264.       move_char(9);
  1265.       break;
  1266.     case '/':                          /* / == identify */
  1267.       ident_char();
  1268.       reset_flag = TRUE;
  1269.       break;
  1270.     case '1':
  1271.       move_char(1);        /* Move dir 1    */
  1272.       break;
  1273.     case '2':
  1274.       move_char(2);        /* Move dir 2    */
  1275.       break;
  1276.     case '3':
  1277.       move_char(3);        /* Move dir 3    */
  1278.       break;
  1279.     case '4':
  1280.       move_char(4);        /* Move dir 4    */
  1281.       break;
  1282.     case '5':                          /* Rest one turn */
  1283.     case '.':
  1284.       move_char(5);
  1285. #ifdef SLOW
  1286.       (void) sleep(0);     /* Sleep 1/10 a second*/
  1287. #endif
  1288.       flush();
  1289.       break;
  1290.     case '6':
  1291.       move_char(6);        /* Move dir 6    */
  1292.       break;
  1293.     case '7':
  1294.       move_char(7);        /* Move dir 7    */
  1295.       break;
  1296.     case '8':
  1297.       move_char(8);        /* Move dir 8    */
  1298.       break;
  1299.     case '9':
  1300.       move_char(9);        /* Move dir 9    */
  1301.       break;
  1302.     case '<':
  1303.       go_up();                                  /*< == go up    */
  1304.       break;
  1305.     case '>':
  1306.       go_down();                                /*> == go down  */
  1307.       break;
  1308.     case '?':                                  /*? == help     */
  1309.       rogue_like_help();
  1310.       reset_flag = TRUE;   /* Free move     */
  1311.       break;
  1312.     case 'f':
  1313.       bash();                                   /*f == bash     */
  1314.       break;
  1315.     case 'C':                                   /*C == character*/
  1316.       if (get_com("Print to file? (Y/N)", &command))
  1317.     switch(command)
  1318.       {
  1319.       case 'y': case 'Y':
  1320.         file_character();
  1321.         break;
  1322.       case 'n': case 'N':
  1323.         change_name();
  1324.         draw_cave();
  1325.         break;
  1326.       default:
  1327.         break;
  1328.       }
  1329.       reset_flag = TRUE;   /* Free move     */
  1330.       break;
  1331.     case 'D':
  1332.       disarm_trap();                            /*D == disarm   */
  1333.       break;
  1334.     case 'E':
  1335.       eat();                                    /*E == eat      */
  1336.       break;
  1337.     case 'F':
  1338.       refill_lamp();                            /*F == refill   */
  1339.       break;
  1340.     case 'W':                                   /*W == location */
  1341.       if ((py.flags.blind > 0) || (no_light()))
  1342.     msg_print("You can't see your map.");
  1343.       else
  1344.     {
  1345.       (void) sprintf(out_val,
  1346.              "Section [%d,%d]; Location == [%d,%d]",
  1347.              (((char_row-1)/OUTPAGE_HEIGHT)+1),
  1348.              (((char_col-1)/OUTPAGE_WIDTH )+1),
  1349.              char_row, char_col);
  1350.       msg_print(out_val);
  1351.     }
  1352.       reset_flag = TRUE;   /* Free move     */
  1353.       break;
  1354.     case 'M':                                   /*M == print map*/
  1355.       if ((py.flags.blind > 0) || (no_light()))
  1356.     msg_print("You can't see to draw a map.");
  1357.       else
  1358.     print_map();
  1359.       reset_flag = TRUE;   /* Free move     */
  1360.       break;
  1361.     case 'R':
  1362.       rest();                                   /*R == rest     */
  1363.       break;
  1364.     case '#':
  1365.       if (search_flag)                    /*^S == srh mode */
  1366.     {
  1367.       search_off();
  1368.       reset_flag = TRUE; /* Free move     */
  1369.     }
  1370.       else if (py.flags.blind > 0)
  1371.     msg_print("You are incapable of searching while blind.");
  1372.       else
  1373.     {
  1374.       search_on();
  1375.       reset_flag = TRUE; /* Free move     */
  1376.     }
  1377.       break;
  1378.     case 25:  /* ^Y */
  1379.       x = char_row;
  1380.       y = char_col;
  1381.       (void) move(7, &x, &y);
  1382.       tunnel(x, y);
  1383.       break;
  1384.     case 11:  /* ^K */
  1385.       x = char_row;
  1386.       y = char_col;
  1387.       (void) move(8, &x, &y);
  1388.       tunnel(x, y);
  1389.       break;
  1390.     case 21: /* ^U */
  1391.       x = char_row;
  1392.       y = char_col;
  1393.       (void) move(9, &x, &y);
  1394.       tunnel(x, y);
  1395.       break;
  1396.     case 12:  /* ^L */
  1397.       x = char_row;
  1398.       y = char_col;
  1399.       (void) move(6, &x, &y);
  1400.       tunnel(x, y);
  1401.       break;
  1402.     case 14:  /* ^N */
  1403.       x = char_row;
  1404.       y = char_col;
  1405.       (void) move(3, &x, &y);
  1406.       tunnel(x, y);
  1407.       break;
  1408.     case 10:    /* ^J */
  1409.       x = char_row;
  1410.       y = char_col;
  1411.       (void) move(2, &x, &y);
  1412.       tunnel(x, y);
  1413.       break;
  1414.     case 2:  /* ^B */
  1415.       x = char_row;
  1416.       y = char_col;
  1417.       (void) move(1, &x, &y);
  1418.       tunnel(x, y);
  1419.       break;
  1420.     case 8:  /* ^H */
  1421.       x = char_row;
  1422.       y = char_col;
  1423.       (void) move(4, &x, &y);
  1424.       tunnel(x, y);
  1425.       break;
  1426.     case 'z':
  1427.      aim();                                    /*z == aim      */
  1428.       break;
  1429.     case 'P':
  1430.       examine_book();                           /*P == browse   */
  1431.       reset_flag = TRUE;
  1432.       break;
  1433.     case 'c':
  1434.       closeobject();                            /*c == close    */
  1435.       break;
  1436.     case 'd':
  1437.       drop();                                   /*d == drop     */
  1438.       break;
  1439.     case 'e':                                   /*e == equipment*/
  1440.       reset_flag = TRUE;   /* Free move     */
  1441.       if (inven_command('e', 0, 0))  draw_cave();
  1442.       break;
  1443.     case 't':
  1444.       throw_object();                           /*t == throw    */
  1445.       break;
  1446. #if 0
  1447.     case 104:                                 /*h == moria hlp */
  1448.       moria_help("");
  1449.       draw_cave();
  1450.       reset_flag = TRUE;   /* Free move    */
  1451.       break;
  1452. #endif
  1453.     case 'i':                                /*i == inventory*/
  1454.       reset_flag = TRUE;   /* Free move     */
  1455.       if (inven_command('i', 0, 0))  draw_cave();
  1456.       break;
  1457.     case 'S':
  1458.       jamdoor();                                /*S == jam      */
  1459.       break;
  1460.     case 'x':                                 /*l == look     */
  1461.       look();
  1462.       reset_flag = TRUE;   /* Free move     */
  1463.       break;
  1464.     case 'm':
  1465.       cast();                                   /*m == magick   */
  1466.       break;
  1467.     case 'o':
  1468.       openobject();                             /*o == open     */
  1469.       break;
  1470.     case 'p':
  1471.       pray();                                   /*p == pray     */
  1472.       break;
  1473.     case 'q':
  1474.       quaff();                                  /*q == quaff    */
  1475.       break;
  1476.     case 'r':
  1477.       read_scroll();                            /*r == read     */
  1478.       break;
  1479.     case 's':
  1480.       if (py.flags.blind > 0)             /*s == search   */
  1481.     msg_print("You are incapable of searching while blind.");
  1482.       else
  1483.     search(char_row, char_col, py.misc.srh);
  1484.       break;
  1485.     case 'T':                              /*T == unwear   */
  1486.       reset_flag = TRUE;
  1487.       if (inven_command('t', 0, 0))  draw_cave();
  1488.       break;
  1489.     case 'Z':
  1490.       use();                                    /*Z == use staff*/
  1491.       break;
  1492.     case 'v':
  1493.       game_version();                           /*v == version  */
  1494.       reset_flag = TRUE;
  1495.       break;
  1496.     case 'w':                                 /*w == wear     */
  1497.       reset_flag = TRUE;
  1498.       if (inven_command('w', 0, 0))  draw_cave();
  1499.       break;
  1500.     case 'X':                                 /*x == exchange */
  1501.       reset_flag = TRUE;
  1502.       if (inven_command('x', 0, 0))  draw_cave();
  1503.       break;
  1504.     default:
  1505.       if (wizard1)
  1506.     {
  1507.       reset_flag = TRUE; /* Wizard commands are free moves*/
  1508.       switch(*com_val)
  1509.         {
  1510.         case 1:                            /*^A == Cure all*/
  1511.           (void) remove_curse();
  1512.           (void) cure_blindness();
  1513.           (void) cure_confusion();
  1514.           (void) cure_poison();
  1515.           (void) remove_fear();
  1516.           s_ptr = &py.stats;
  1517.           s_ptr->cstr = s_ptr->str;
  1518.           s_ptr->cint = s_ptr->intel;
  1519.           s_ptr->cwis = s_ptr->wis;
  1520.           s_ptr->cdex = s_ptr->dex;
  1521.           s_ptr->ccon = s_ptr->con;
  1522.           s_ptr->cchr = s_ptr->chr;
  1523.           f_ptr = &py.flags;
  1524.           if (f_ptr->slow > 1)
  1525.         f_ptr->slow = 1;
  1526.           if (f_ptr->image > 1)
  1527.         f_ptr->image = 1;
  1528.           /* put_qio(); */
  1529.           /* adjust misc stats */
  1530.           py_bonuses(blank_treasure, 0);
  1531.           break;
  1532.         case 15:
  1533.           print_objects();                  /*^O == objects */
  1534.           break;
  1535.         case 4:                           /*^D == up/down */
  1536.           prt("Go to which level (0 -1200) ? ", 0, 0);
  1537.           i = -1;
  1538.           if (get_string(tmp_str, 0, 30, 10))
  1539.         (void) sscanf(tmp_str, "%d", &i);
  1540.           if (i > -1)
  1541.         {
  1542.           dun_level = i;
  1543.           if (dun_level > 1200)
  1544.             dun_level = 1200;
  1545.           moria_flag = TRUE;
  1546.         }
  1547.           else
  1548.         erase_line(MSG_LINE, 0);
  1549.           break;
  1550.         case 127: /* ^? DEL */
  1551.           rogue_like_wizard_help();         /*DEL == wizhelp */
  1552.           break;
  1553.         case 9:
  1554.           (void) ident_spell();             /*^I == identify*/
  1555.           break;
  1556.         case 13:
  1557.           print_monsters();                 /*^M == mon map */
  1558.           break;
  1559.         case '*':
  1560.           wizard_light();                   /*` == wizlight*/
  1561.           break;
  1562.         case 20:
  1563.           teleport(100);                    /*^T == teleport*/
  1564.           break;
  1565.         case 22:
  1566.           restore_char();                   /*^V == restore */
  1567.           prt_stat_block();
  1568.           moria_flag = TRUE;
  1569.           break;
  1570.         default:
  1571.           if (wizard2)
  1572.         switch(*com_val)
  1573.           {
  1574.           case 5:
  1575.             change_character();         /*^E == wizchar */
  1576.             break;
  1577.           case 6:
  1578.             (void) mass_genocide();     /*^F == genocide*/
  1579.             /* put_qio(); */
  1580.             break;
  1581.           case 7:                       /*^G == treasure*/
  1582.             alloc_object(set_floor, 5, 10);
  1583.             /* put_qio(); */
  1584.             break;
  1585.           case '+':                      /*+ == gain exp*/
  1586.             if (py.misc.exp == 0)
  1587.               py.misc.exp = 1;
  1588.             else
  1589.               py.misc.exp = py.misc.exp * 2;
  1590.             prt_experience();
  1591.             break;
  1592.           case 19:                    /*^S == summon  */
  1593.             y = char_row;
  1594.             x = char_col;
  1595.             (void) summon_monster(&y, &x, TRUE);
  1596.             creatures(FALSE);
  1597.             break;
  1598.           case '@':
  1599.             wizard_create();          /*^Q == create  */
  1600.             break;
  1601.           default:
  1602.             prt("Type '?' or DELETE for help...", 0, 0);
  1603.             break;
  1604.           }
  1605.           else
  1606.         prt("Type '?' or DELETE for help...", 0, 0);
  1607.         }
  1608.     }
  1609.       else
  1610.     {
  1611.       prt("Type '?' for help...", 0, 0);
  1612.       reset_flag = TRUE;
  1613.     }
  1614.     }
  1615. }
  1616.